home *** CD-ROM | disk | FTP | other *** search
/ AEMail 2.40 / AEMail v2.40.iso / arexx / grptolist.aem < prev    next >
Text File  |  1999-03-07  |  2KB  |  82 lines
  1. /* AEMail Create List from Address Book Group */
  2.  
  3. OPTIONS RESULTS
  4.  
  5. /* TRACE ALL */
  6.  
  7. GETFILENAME "'Enter File of Email Addresses'"
  8.  
  9. filenm = RESULT
  10.  
  11. IF (OPEN('listfile', filenm, 'W') = 0) THEN DO
  12.     OKAY1 "Invalid File; Aborting ..."
  13.     EXIT
  14.     END
  15.  
  16. ADDTOAB = 1
  17. IF (ADDTOAB = 1) THEN DO
  18.     OK = 0
  19.     DO UNTIL OK = 1
  20.         ADDRESS_BOOK LIST GROUP DESCRIPTION LF
  21.         grplist = RESULT
  22.         GETLISTITEM "'"grplist"' 'Select the Group Wanted'"
  23.         grpname = RESULT
  24.         IF (grpname = "") THEN DO
  25.             OKAY1 '"No Group Selected; Aborting ..."'
  26.             EXIT
  27.             END
  28.         PARSE VAR grpname grpname dflt
  29.         dflt = STRIP(dflt, 'L')
  30.         ADDRESS_BOOK GET grpname TYPE
  31.         addrtype = RESULT
  32.         IF (addrtype = -1) THEN DO
  33.             OKAY1 '"Group does not exist; Aborting ..."'
  34.             EXIT
  35.             END
  36.         IF (addrtype = 0) THEN DO
  37.             OKAY1 '"Re-enter Name|Cancel"' "Nickname is already used for an Individual"
  38.             IF (RESULT = 1) THEN OK = 0
  39.             IF (RESULT = 0) THEN exit
  40.             END
  41.         IF (addrtype = 1) THEN OK = 1
  42.         END
  43.     END
  44.  
  45.  
  46. ADDRESS_BOOK GET grpname FIRST USERID
  47.  
  48. name1 = RESULT
  49.  
  50. IF (name1 = "") THEN EXIT
  51.  
  52. emailaddr=RESULT
  53.  
  54. ADDRESS_BOOK GET "'"name1"'" TYPE
  55.  
  56. IF (RESULT = 0) THEN DO
  57.     ADDRESS_BOOK GET "'"name1"'" USERID
  58.     emailaddr=RESULT
  59.     END
  60.  
  61. DO UNTIL emailaddr = ""
  62.  
  63.     WRITELN('listfile', emailaddr)
  64.     ADDRESS_BOOK GET grpname NEXT USERID
  65.     IF (RC ~= 0) THEN DO
  66.         OKAY1 "last error is "AEMAIL.LASTERROR
  67.         EXIT
  68.         END
  69.     name1 = RESULT
  70.     IF (name1 = "") THEN LEAVE
  71.     emailaddr=RESULT
  72.     ADDRESS_BOOK GET "'"name1"'" TYPE
  73.     IF (RESULT = 0) THEN DO
  74.         ADDRESS_BOOK GET "'"name1"'" USERID
  75.         emailaddr=RESULT
  76.         END
  77.     END
  78.  
  79. CLOSE('listfile')
  80.  
  81. OKAY1 "Last Email Address Written"
  82.